Gigarom 1/Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso/FILES/HYP/E-G/Financial Portfolio v1.8.cpt/Financial Portfolio v1.8/background_23780.xml

Extensible Markup Language | 1991-09-30 | 34KB | 692 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
<background>
    <id>23780</id>
    <filler1>0</filler1>
    <bitmap>BMAP_23868.pbm</bitmap>
    <cantDelete> <true /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <link rel="stylesheet" type="text/css" href="stylesheet_3246.css" />
    <part>
        <id>37</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>7</left>
            <top>0</top>
            <right>97</right>
            <bottom>24</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Helvetica</font>
        <textSize>10</textSize>
        <textStyle>bold</textStyle>
        <textHeight>10</textHeight>
        <name>labels title</name>
        <script></script>
    </part>
    <part>
        <id>38</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>100</left>
            <top>0</top>
            <right>167</right>
            <bottom>23</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Helvetica</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>10</textHeight>
        <name>graph Title</name>
        <script></script>
    </part>
    <part>
        <id>39</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>166</left>
            <top>9</top>
            <right>226</right>
            <bottom>25</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>bold</textStyle>
        <textHeight>12</textHeight>
        <name>units</name>
        <script>on closeField-- Requires handler: shareTheDatashareTheDataput false into bg field "Drew Data"pass closeFieldend closeFieldon exitField-- Requires handler: shareTheDatashareTheDatapass exitFieldend exitFieldon returnInFieldend returnInField</script>
    </part>
    <part>
        <id>36</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>7</left>
            <top>24</top>
            <right>97</right>
            <bottom>117</bottom>
        </rect>
        <style>opaque</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>right</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>labels</name>
        <script></script>
    </part>
    <part>
        <id>35</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>101</left>
            <top>24</top>
            <right>166</right>
            <bottom>118</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>right</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>data</name>
        <script></script>
    </part>
    <part>
        <id>52</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>0</left>
            <top>327</top>
            <right>103</right>
            <bottom>342</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>graph rect</name>
        <script></script>
    </part>
    <part>
        <id>58</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>253</left>
            <top>13</top>
            <right>384</right>
            <bottom>32</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>drawGraph</name>
        <script>on mouseUp-- Requires handler: drawChartdrawChartend mouseUp</script>
    </part>
    <part>
        <id>64</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>168</left>
            <top>20</top>
            <right>226</right>
            <bottom>117</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <true /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>right</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>percents</name>
        <script></script>
    </part>
    <part>
        <id>65</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>450</left>
            <top>65</top>
            <right>512</right>
            <bottom>79</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Drew Data</name>
        <script></script>
    </part>
    <part>
        <id>70</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>169</left>
            <top>115</top>
            <right>221</right>
            <bottom>129</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>right</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>percent total</name>
        <script>on mouseDown-- Requires handler: updateTotalsupdateTotalsend mouseDown</script>
    </part>
    <part>
        <id>71</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>97</left>
            <top>116</top>
            <right>166</right>
            <bottom>131</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>right</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>total</name>
        <script>on mouseDown-- Requires handler: updateTotalsupdateTotalsend mouseDown</script>
    </part>
    <part>
        <id>50</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>277</left>
            <top>149</top>
            <right>531</right>
            <bottom>271</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Legend</name>
        <script>on mouseDown-- Requires handler: doDragBtnset cursor to "Grab Hand"hide bg btn "GrowLegend"doDragBtn name of me,0,62,width of card window,height of card windowset botRight of bg btn "GrowLegend" to botRight of meshow bg btn "GrowLegend"end mouseDownon mouseup-- Requires handler: drawChartdrawChartend mouseup</script>
    </part>
    <part>
        <id>51</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>515</left>
            <top>255</top>
            <right>531</right>
            <bottom>271</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>15467</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>growLegend</name>
        <script>on mouseDown-- Requires function handlers: validatedData,maxCharsset cursor to arrow-- set icon of me to "Inverse Grow Box"set style of me to rectangleset style of bg btn "Legend" to "rectangle"put the rect of bg btn "Legend" into frameRectput width of me div 2 into halfMyWidthput height of me div 2 into halfMyHeightput number of lines of validatedData(bg field "Data") into dataCountput maxChars(stripReturns(bg field "Labels")) * 8 into maxLabelSizeput maxLabelSize + 70 into maxWidthput (dataCount * 17) + 20 into maxHeightput width of card window into cardWidthput height of card window into cardHeightrepeat until the mouse is upput the mouseLoc into newLocif item 1 of newLoc <= (item 1 of frameRect + maxWidth)then put item 1 of frameRect + (maxWidth - halfMyWidth) ¬into item 1 of newLocput min(item 1 of newLoc,cardWidth - halfMyWidth) ¬into item 1 of newLocif item 2 of newLoc <= (item 2 of frameRect + maxHeight)then put item 2 of frameRect + (maxHeight - halfMyHeight) ¬into item 2 of newLocput min(item 2 of newLoc,cardHeight - halfMyHeight) ¬into item 2 of newLocset loc of me to newLocput bottom of me into item 4 of frameRect -- new bottomput right of me into item 3 of frameRect -- new rightset rect of bg btn "Legend" to frameRectend repeat--  set icon of me to "Grow Box"set style of me to rectangleend mouseDownon mouseup-- Requires handlers: drawChartdrawChartend mouseup</script>
    </part>
    <part>
        <id>46</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>11</left>
            <top>99</top>
            <right>270</right>
            <bottom>335</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <name>frame</name>
        <script></script>
    </part>
    <part>
        <id>47</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>254</left>
            <top>319</top>
            <right>270</right>
            <bottom>335</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>15467</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>grow</name>
        <script>on mouseDownset cursor to arrowput 160 into maxWidthput 172 into maxHeight--set icon of me to "Inverse Grow Box"set style of me to rectangleset style of bg btn "Frame" to rectangleput the rect of bg btn "Frame" into frameRectput width of me div 2 into halfMyWidthput height of me div 2 into halfMyHeightput width of card window into cardWidthput height of card window into cardHeightrepeat until the mouse is upput the mouseLoc into newLocif item 1 of newLoc <= (item 1 of frameRect + maxWidth)then put item 1 of frameRect + (maxWidth - halfMyWidth) ¬into item 1 of newLocput min(item 1 of newLoc,cardWidth - halfMyWidth) ¬into item 1 of newLocif item 2 of newLoc <= (item 2 of frameRect + maxHeight)then put item 2 of frameRect + (maxHeight - halfMyHeight) ¬into item 2 of newLocput min(item 2 of newLoc,cardHeight - halfMyHeight) ¬into item 2 of newLocset loc of me to newLocput bottom of me into item 4 of frameRect -- new bottomput right of me into item 3 of frameRect -- new rightset rect of bg btn "Frame" to frameRectend repeat-- set icon of me to "Grow Box"set style of me to rectangleend mouseDownon mouseup-- Requires handlers: saveRect,drawChartsaveRectdrawChartend mouseup</script>
    </part>
    <part>
        <id>75</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>7</left>
            <top>34</top>
            <right>42</right>
            <bottom>64</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>29114</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>go back</name>
        <script>on mouseUpclearscreenchoose browse toolset lockmessages to truevisual iris closego cd networthend mouseUp</script>
    </part>
    <part>
        <id>78</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>461</left>
            <top>16</top>
            <right>503</right>
            <bottom>56</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1007</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Portfolio Report</name>
        <script>on mouseUpput "Ready to print out the graph? (printer on, ...)" into qqput return & return & "The dark background areas will be made white before printing to save ink/toner." after qqanswer qq with "cancel" or "Print"if it is "cancel" then exit mouseUpprintGraphend mouseUpon printGraphshow bg button "white"print this cardhide bg button "white"end printGraph</script>
    </part>
    <part>
        <id>80</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>389</left>
            <top>21</top>
            <right>428</right>
            <bottom>55</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>20016</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Pie</name>
        <script>on mouseUp-- Requires handler: goCardhide tool windowmakePieend mouseUpon makePieanswer "Which data you would like to make into a pie graph?" with "cancel" or "liabilities" or "assets"if it is "cancel" then exit makePieif it is "assets" then assetpieif it is "liabilities" then liabpieend makePieon assetpieset lockmessages to truelock screengo cd "networth"put field "assetnum" into a2put field "assetstot" into a1go cd "pie.asset"unlock screen with visual iris open fastput a2 into bg field "data"put a1 into bg field "total"send updatetotals to cd "pie.asset"send mouseUp to bg button "drawgraph"end assetpieon liabpieset lockmessages to truelock screengo cd "networth"put field "liabnum" into a2put field "liabstot" into a1go cd "pie.liab"unlock screen with visual iris open fastput a2 into bg field "data"put a1 into bg field "total"send updatetotals to cd "pie.liab"send mouseUp to bg button "drawgraph"end liabpie</script>
    </part>
    <part>
        <id>76</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>0</left>
            <top>0</top>
            <right>512</right>
            <bottom>342</bottom>
        </rect>
        <style>opaque</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>white</name>
        <script></script>
    </part>
    <part>
        <id>74</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>181</left>
            <top>17</top>
            <right>343</right>
            <bottom>57</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Palatino</font>
        <textSize>24</textSize>
        <textStyle>extend</textStyle>
        <textHeight>36</textHeight>
        <name>title</name>
        <script></script>
    </part>
    <part>
        <id>79</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>223</left>
            <top>60</top>
            <right>307</right>
            <bottom>75</bottom>
        </rect>
        <style>opaque</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>date</name>
        <script></script>
    </part>
    <content>
        <layer>background</layer>
        <id>37</id>
        <text>Month</text>
    </content>
    <content>
        <layer>background</layer>
        <id>39</id>
        <text>wombats</text>
    </content>
    <content>
        <layer>background</layer>
        <id>38</id>
        <text>Population</text>
    </content>
    <name>Graphs</name>
    <script>on openCardglobal theData,theLabels,theTitle,theDataTitle,theUnitsget bg field "Graph Rect"set rect of bg btn "Frame" to line 1 of itset rect of bg btn "Grow" to line 2 of itunlock screenput the short date into bg field "date"if not bg field "Drew Data" thensend "drawChart" to this cardput true into bg field "Drew Data"end ifpass openCardend openCardon closeCard-- Requires handlers: saveRect,showInfosaveRect -- saves current frame sizeshowInfo falsepass closeCardend closeCardon enterInFieldclick at the loc of bg btn "Drawgraph"end enterInFieldon enterKeyclick at the loc of bg btn "Drawgraph"end enterKeyon closeBackgroundresetDataInfoend closeBackgroundon resetDataInfoglobal theData,theLabels,theTitle,theDataTitle,theUnitsput empty into theDataput empty into theLabelsput empty into theTitleput empty into theDataTitleput empty into theUnitsend resetDataInfoon goCardgo to card (the short name of the target) of this bkgndend goCardon goToCard whichCardget bg field "Graph Rect" of card whichCardset rect of bg btn "Frame" of card whichCard to line 1 of itset rect of bg btn "Grow" of card whichCard to line 2 of itvisual effect shrink to top slowgo to card whichCardwait while the mouseClick -- prevents redraw if user double clickedend goToCard-- Scripts for the Assets & Liabilities cards __on drawChart-- Requires handlers: showInfo,checkUserCancel,clearScreen-- Requires handlers: doPieChart,doLegend-- Requires function handler: stripReturns-- main set up procedure for drawing the graphshowInfo falsecheckUserCancelput stripReturns(bg fld "Labels") into labelsput (stripReturns(bg fld "Data")) into datarepeat with x=1 to the number of lines of dataput strip("$,",line x of data) into line x of dataend repeatif data is empty or number of lines in data = 1 then exit drawChartput stripReturns(bg fld "Labels Title") into graphTitleput stripReturns(bg fld "Graph Title") into legendTitleput rect of bg btn "Frame" into chartRectput rect of bg btn "Legend" into legendRectupdateTotalscheckUserCancelclearScreendoPieChart chartRect,data,graphTitledoLegend labels,data,legendTitleput true into bg fld "Drew Data"reset paintend drawCharton doPieChart chartRect,pieData,title-- Requires handlers: checkUserCancel,setFont-- Requires function handler: getPatternreset paintset cursor to watchcheckUserCancelput number of lines in pieData into dataCountput item 1 of chartRect into chartLeftput item 2 of chartRect into chartTopput item 3 of chartRect into chartRightput item 4 of chartRect into chartBottom-- adjust chartRect to account for the labelsadd 10 to chartLeftsubtract 10 from chartRightadd 25 to chartTopsubtract 8 from chartBottomput chartRight - chartLeft into chartWidthput chartBottom - chartTop into chartHeight-- add a title to the graphchoose text toolsetFont geneva,10,center,boldclick at (chartLeft + chartWidth div 2),(chartTop - 10)type line 1 of titleput chartTop into pieTopput round(min(chartWidth,chartHeight)) into pieDiameterput chartLeft + ((chartWidth - pieDiameter) div 2) into pieLeft-- draw outside circlechoose oval tooldrag from pieLeft,pieTop to (pieLeft + pieDiameter),(pieTop + pieDiameter)put bg field "Total" into totalput strip("$,",total) into total -- •-- draw the pieChartput pieDiameter div 2 into pieRadiusput pieLeft + pieRadius into pieCenterXput pieTop + pieRadius into pieCenterYput zero into angleput zero into changeif total > 0 thenrepeat with slice = 1 to (dataCount + 1)checkUserCancelchoose line tool-- calculate and draw each section lineput pieCenterX + round(pieRadius * sin(angle)) into xput pieCenterY - round(pieRadius * cos(angle)) into ydrag from pieCenterX,pieCenterY to x,y-- fill section with a patternif change > .02 thenset pattern to getPattern(slice)choose bucket toolclick at halfX,halfYend ifput pi * (line slice of pieData) / total into changeadd change to angleput pieCenterX + round((pieRadius - 3) * sin(angle)) into halfXput pieCenterY - round((pieRadius - 3) * cos(angle)) into halfYadd change to angleend repeatend ifreset paintchoose browse toolend doPieCharton doLegend theLabels,data,title-- Requires handlers: checkUserCancel,setFont-- Requires function handlers: maxChars,rectHeight,rectWidthreset paintset cursor to watchput bg field "Percents" into thePercentsput rect of bg btn "Legend" into legendRectput max(the number of lines in theLabels,the number of lines in data) into numLabelsif numLabels <= 1 then exit doLegendput maxChars(theLabels) * 8 into maxLabelSizeput item 1 of legendRect + maxLabelSize + 70 into item 3 of legendRectput item 2 of legendRect + numLabels * 17 + 20 into item 4 of legendRectset rect of bg btn "Legend" to legendRectset bottomRight of bg btn "GrowLegend" to bottomRight of bg btn "Legend"put rectHeight(legendRect) into legendHeightput rectWidth(legendRect) into legendWidthput item 1 of legendRect into legendLeftput item 2 of legendRect into legendTopput item 3 of legendRect into legendRightput (legendHeight div numLabels + 1) div 2 into stepSizeput max(15,stepSize) into stepSizechoose text toolsetFont geneva,10,Left,boldput legendLeft + 10 into horzput legendTop + the textHeight - 5 into vertclick at legendLeft + 40,verttype title -- "Assets" or "Liabilities"add the textHeight + 15 to vertset filled to trueput 50 into offsetter -- how far to make right margin for assetsif title is "Liabilities" then put 18 into offsetterrepeat with labelCount = 1 to numLabelscheckUserCancel-- draw the boxchoose rectangle toolset pattern to getPattern(labelCount + 1)drag from horz,(vert - the textHeight) to horz + the textHeight,vert-- type the labelchoose text toolsetFont geneva,10,left,plainclick at horz + 20,verttype line labelCount of theLabelschoose select toolchoose text toolsetFont geneva,10,right,plainclick at horz + maxLabelSize + offsetter,verttype line labelCount of thePercents -- types the percentsadd stepSize + 2  to vertend repeatchoose browse toolend doLegendfunction getPattern thePatternreturn item (thePattern mod 14) + 1 of "13,11,22,14,20,17,6,3,5,1,9,19,15,2"end getPatternon updateTotals-- Requries function handlers: validatedData,totalValues,calcPercentsset cursor to watchput bg field "Data" into data-- strip out datarepeat with x=1 to the number of lines of dataput strip("$,",line x of data) into line x of dataend repeatput bg field "total" into dataTotalput strip("$,",datatotal) into datatotalget calcPercents(data,dataTotal)put item 1 of it into bg field "Percents"put item 2 of it into bg field "Percent Total"end updateTotalsfunction calcPercents data,dataTotal--  calculate percent of the total for each line of dataput 0 into percentTotalput empty into percentListif dataTotal ≠ 0 thenrepeat with dataCount = 1 to number of lines of dataput (line dataCount of data / dataTotal) * 100 into thePercentput round(thePercent) && "%" into line dataCount of percentList -- ∆add thePercent to percentTotalend repeatelserepeat with dataCount = 1 to number of lines of dataput line dataCount of data & "%" into line dataCount of percentList -- ∆end repeatput dataTotal into percentTotalend ifreturn percentList & "," & percentTotal & "%" -- ∆end calcPercents-----  Misc  ----------------------------------------------------on doDragBtn btnID,left,top,right,bottom-- drag a button within the card areaput (the clickH - item 1 of the loc of btnID) into horzStartput (the clickV - item 2 of the loc of btnID) into vertStartput width of btnID div 2 into horzOffsetput height of btnID div 2 into vertOffsetput horzOffset + left into cardLeftput vertOffset + top into cardTopput right - horzOffset into cardRightput bottom - vertOffset into cardBottomrepeat until the mouse is upput max(the mouseH - horzStart,cardLeft) into horzput min(horz,cardRight) into item 1 of newLocput max(the mouseV - vertStart,cardTop) into vertput min(vert,cardBottom) into item 2 of newLocset loc of btnID to newLocend repeatend doDragBtnon resetDrawFlagput "11352,13427,12850,14091" into cardIdNumsput value(the target) into theDatarepeat with count = 1 to 4put false into bg field "Drew Data" of card id (item count of cardIDNums)end repeatend resetDrawFlagon showInfo showHideend showInfo-----  Utilities  -----------------------------------------------on clearScreen-- removes the paint from the card layerchoose "Select Tool"doMenu "Select All"doMenu "Clear Picture"end clearScreenon setFont fontName,fontSize,fontAlignment,fontStyleif fontName is not empty then set textFont to fontNameif fontSize is not empty then set textSize to fontSizeif fontSize is not empty then set textheight to fontSizeif fontAlignment is not empty then set textAlign to fontAlignmentif fontStyle is not empty then set textStyle to fontStyleend setFonton saveRect-- "Graph Rect" is a hidden fieldput rect of bg btn "Frame" into line 1 of bg field "Graph Rect"put rect of bg btn "Grow" into line 2 of bg field "Graph Rect"end saveRecton checkUserCancelif the mouseClick thenchoose browse toolexit to hyperCardend ifend checkUserCancelfunction stripReturns theText -- remove all trailing return charsrepeat until last char of theText ≠ returndelete last char of theTextend repeatreturn theTextend stripReturns-----  Data Functions  -----------------------------------------------function validatedData data,labelsput number of lines in data into numDatarepeat with count = 1 to numDataif ((line count of data is not a number) or ¬(line count of data < 0) or (line count of data is empty))then put zero into line count of dataend repeatreturn dataend validatedDatafunction roundUp anyNumber-- rounds a number to the nearest value divisible by 10,100,1000, etcput trunc(anyNumber) into wholeNumberput (10^(length(wholeNumber) - 1)) into divisorif wholeNumber mod divisor = 0 then return wholeNumberelse return (trunc((wholeNumber/divisor) + 1)) * divisorend roundUpfunction rectWidth theRect-- returns the width of a rectanglereturn item 3 of theRect - item 1 of theRectend rectWidthfunction rectHeight theRect-- returns the height of a rectanglereturn item 4 of theRect - item 2 of theRectend rectHeightfunction getMaxValue dataList-- returns the number with the highest valuesort dataList descending numericreturn line 1 of dataListend getMaxValuefunction maxChars textList-- determines the longest word of a listput 0 into longestrepeat with theLine = 1 to the number of lines in textListif length(line theLine of textList) > longestthen put length(line theLine of textList) into longestend repeatreturn longestend maxChars</script>
</background>